home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t2.d64 / meeting.l < prev    next >
Text File  |  2007-02-28  |  527b  |  23 lines
  1. 0010 //DELETE "0:MEETING1-3"
  2. 0020 // MADISON COMAL USERS GROUP
  3. 0030 //SAVE   "0:MEETING1-5"
  4. 0040 //2 RANDOM LETTERS - WATCH FOR REPEATS
  5. 0050 MAX:=100
  6. 0060 DIM AR$(1:2,1:MAX) OF 1
  7. 0070 DIM C$ OF 1, D$ OF 1
  8. 0080 A:=ORD("A"); Z:=ORD("Z")
  9. 0090 FOR X:=1 TO MAX DO
  10. 0100 C$:=CHR$(RND(A,Z))
  11. 0110 D$:=CHR$(RND(A,Z))
  12. 0120 AR$(1,X):=C$; AR$(2,X):=D$
  13. 0130 PRINT C$;D$
  14. 0140 CUR:=X
  15. 0150 WHILE CUR>1 DO
  16. 0160 CUR:-1
  17. 0170 IF C$=AR$(1,CUR) AND D$=AR$(2,CUR) THEN
  18. 0180 PRINT "REPEATED SEQUENCE"
  19. 0190 ENDIF 
  20. 0200 ENDWHILE 
  21. 0210 ENDFOR X
  22. 0220 END 
  23.